<!--
Public RS, DB, fso, cr, t
Sub window_onload()
    cr = Chr(13) & Chr(10): t = Chr(9)
    LoadObjects
    On Error Resume Next
    ReDim v(3, 100)
    a = Tree.innerText
    Tree.innerText = ""
    i = 0
    Do
        X = InStr(a, "$")
        If X Then
            b = Left(a, X - 1)
            a = Trim(Mid(a, X + 1))
            z = InStr(b, "*")
            If z Then
                i = i + 1
                v(0, i) = Trim(Left(b, z - 1))
                b = Trim(Mid(b, z + 1))
                Y = InStr(b, "§")
                If Y Then
                    c = Trim(Left(b, Y - 1))
                    z = InStr(c, "k")
                    If z Then
                        d = Left(c, z - 1)
                        If Len(d) Then v(1, i) = "k" & d        ' Node ID
                        v(3, i) = Mid(c, z)                     ' Parent ID
                    else
                        v(1, i) = "k1"
                    End If
                    v(2, i) = Trim(Mid(b, Y + 1))
                End If
            End If
        End If
    Loop While X
    ReDim Preserve v(3, i)
    With Diagram.Nodes
        For i = 1 To UBound(v, 2)
            b = Trim(v(3, i))
            If Len(b) Then
                Set n = .Add(.Item(b).Index, 4, v(1, i), v(0, i))
                n.Expanded = LCase(v(2, i)) = "introduction.htm"
            Else
                Set n = .Add(, 4, v(1, i), v(0, i))
                n.Expanded = True
            End If
            n.Tag = v(2, i)
        Next
        Set n = .Item("k1")
        Set Diagram.SelectedItem = n
        n.EnsureVisible
    End With
    window_onresize
    On Error Goto 0
    Diagram_NodeClick n
End Sub
Sub Diagram_NodeClick(n)
    on error resume next
    If Not n Is Nothing Then
        window.Parent.Bottom.navigate n.Tag
    End If
End Sub
Sub window_onresize()
    Diagram.Font.Size = 10
End Sub
Sub ClearFromCharacters(Text, ContiguousCharacters)
    Dim x
    Do
        x = InStr(Text, ContiguousCharacters)
        If x Then Text = Left(Text, x - 1) & " " & Mid(Text, x + Len(ContiguousCharacters))
    Loop While x
End Sub
Sub LoadObjects
    On Error Resume Next
    Set fso = CreateObject("FisaActiveX.FSO")
'    p = LCase(window.Document.url)
'    p = Mid(p, 8)
'    ClearFromCharacters p, "%20"
'    x = InStr(p, "//")
'    If x Then
'        p = p = Mid(p, x + 2)
'    Else
'        s = fso.GetDriveName(p)
'        If Len(s) Then
'            s = s & ":\"
'            x = InStr(p, s)
'            If x Then p = Mid(p, x)
'        Else
'            s = ":\"
'            x = InStr(p, s)
'            If x Then p = Mid(p, x - 1)
'        End If
'    End If
'    p = LCase(fso.GetParentFolderName(p))
'    s = "fisa software\"
'    x = InStr(p, s)
'    If x Then
'        p = Left(p, x + Len(s) - 1) & "Translation Files\Test.mdb"
'    End If
'    If fso.FileExists(p) Then
'        Set mO = CreateObject("FisaActiveX.Engine")
'        Set DB = mO.OpenDB(p)
'        'MsgBox DB.Name
'    Else
'        MsgBox "Could not find translations database", , p
'    End If
End Sub
-->